home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / mmdf / mmdf-IIb.43 / uip / send / s_main.c < prev    next >
Encoding:
C/C++ Source or Header  |  1988-03-28  |  4.4 KB  |  150 lines
  1. /*
  2.    interactive mail-sender
  3.  
  4.    ??? ?? ?. ?????          Probably originated in Illinois, but it's
  5.                 like Daniel Boone's knife, with the blade
  6.                 replaced 3 times & the handle 4.
  7.    Oct 80 S. Cracraft       Conversion from V6 to V7 and incorprate changes
  8.                 for all interaction done with MMDF, including
  9.                 *_address routines
  10.    Spr 81 D. Crocker        More cleanup; adding V6 compatability; signature;
  11.                 draft; forward inclusion mod; some help
  12.                 commands; better address parsing
  13.    Jul 81 D. Crocker        add quoting to name-parts of addresses, with
  14.                 special characters; allow comment fields to
  15.                 have special chars.
  16.                 minor diddling with fieldname displaying
  17.     Aug 81 D. Crocker       gather() needed to check characters from getchar
  18.     Sep 81 D. Crocker       have Bcc not printed, when there are no To addrs
  19.     Oct 81 D. Crocker       Make BCC say "(Private)" and disable To & CC,
  20.                 to prevent accidental replies.
  21.                 Make continuation  header lines begin with space,
  22.                 instead of name.
  23.     Nov 81 D. Crocker       save copy in ",sent", instead of ",send"
  24.                 input commands case-insensitive
  25.     Jan 82 D. Kingston        Modified to make use of the ",sent" file optional
  26.                 based on defining SENTFILE, also changed screen
  27.                 editor to Emacs.  (BRL 6.145)
  28.     Feb 82 D. Kingston        Users full name is now taken from /etc/passwd,
  29.                 Network name is placed in <> afterwords (BRL 6.152)
  30.     Mar 82 D. Kingston        Have send close file desc. 3-N before execing
  31.                 subshells or subprograms.
  32.     Apr 82 D. Kingston        Rearranged the invocation of submit.  Lossage:
  33.                 channel table fd's are still left open on execs
  34.     03/31/83  GWH        Split SEND into its component parts.
  35.  
  36.     06/30/83  GWH    Added numerous features to send. See comments in
  37.             "s_get.c", etal. Also added unique draft file naming
  38.             with the draft files' deletion at the end of the
  39.             session.
  40. */
  41.  
  42.  
  43. #include "./s.h"
  44.  
  45. extern int errno;
  46. extern char *compress ();
  47. extern char *index();
  48.  
  49. /* mmdf globals */
  50.  
  51. extern int  sentprotect;
  52. extern char *locname;
  53. extern char *delim1;
  54.  
  55. /* end of mmdf globals */
  56.  
  57. char hdrfmt[] = "%-10s%s\n";
  58. char    toname[] =  "To:  ";
  59. char    BCtoname[] = "[To]: ";   /* Bcc copy's To fieldname              */
  60. char    ccname[] =  "cc:  ";
  61. char    BCccname[] = "[cc]: ";   /* Bcc copy's CC fieldname              */
  62. char    subjname[] = "Subject:  ";
  63. char    fromname[] = "From:  ";
  64. char    datename[] = "Date:  ";
  65. char    bccname[] = "BCC:  ";
  66. char    shrtfmt[] = "%s%s\n";
  67.  
  68. jmp_buf savej;
  69.  
  70. int     drffd;                  /* handle on the draft file */
  71. int     nsent;
  72. int     badflg;              /* true if at least one bad address */
  73. sigtype (*orig) ();               /* to save old signal values */
  74.  
  75. char   *adrptr;                   /* field currently getting addresses  */
  76. char    bigbuf[BBSIZE],              /* buffer for text of msg */
  77.     signature[S_BSIZE],            /* hold the signature */
  78.     host[64],                 /* default hostname */
  79.     from[64],
  80.     to[S_BSIZE],          /* primary recipients                 */
  81.     bcc[S_BSIZE],         /* blind carbon copy addresses        */
  82.     cc[S_BSIZE],          /* secondary recipients               */
  83.     subject[S_BSIZE],
  84.     stdobuffer[BUFSIZ],
  85.     inclfile[FILNSIZE],
  86.     drffile[S_BSIZE];
  87.  
  88. char    body,
  89.     lastsend,
  90.     aborted,
  91.     inrdwr,                   /* true if in a read or write */
  92.     noinputflag,
  93.     toflag = TRUE,
  94.     ccflag= TRUE,
  95.     subjflag = TRUE;
  96.  
  97. /* Set the default user settable options */
  98.  
  99. char editor[128];
  100. char veditor[128];
  101. char checker[128];
  102. char copyfile[128];
  103. char subargs[128];
  104. char aliasfilename[128];
  105. int wflag, cflag;
  106. int aflag, rflag;
  107. int qflag, dflag;
  108. int pflag;
  109. struct header *headers = (struct header *)0;
  110.  
  111. /* */
  112.  
  113. main (argc, argv)
  114. int     argc;
  115. char   *argv[];
  116. {
  117.     extern  sigtype onint2 ();
  118.     int     retval;
  119.  
  120.     mmdf_init( argv[0] );
  121.     setbuf (stdout, stdobuffer);
  122.  
  123.     if (setjmp(savej) != 0)
  124.     exit(9);
  125.  
  126.     orig = signal (SIGINT, onint2);
  127.     if (!getuinfo ())
  128.     snd_abort ("Problem acquiring user information.\n");
  129.  
  130.     if (rp_isbad (retval = mm_init ()) || rp_isbad (retval = mm_sbinit ()))
  131.     snd_abort ("Problem with mail startup [%s].\n", rp_valstr (retval));
  132.  
  133.     arginit (argc, argv);
  134.  
  135.     if ((drffd = creat (drffile, sentprotect)) >= 0)
  136.     drclose ();
  137.     else                          /* can't get a clean drf            */
  138.     {
  139.     printf(" Can't open draft file '%s'\n", drffile);
  140.     fflush(stdout);
  141.     s_exit( NOTOK );
  142.     }
  143.  
  144.     input ();
  145.  
  146.     mm_end (OK);
  147.     fflush (stdout);
  148.     s_exit (0);
  149. }
  150.